﻿Public Class NotaCreditoDetalle

    Dim _cia As String
    Dim _suc As String
    Dim _tipo As String
    Dim _dcicodigo As String
    Dim _dcdCodigo As Integer
    Dim _cantidad As Integer
    Dim _act As String
    Dim _artCodigo As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tipo As String, ByVal dcicod As String, dcdCod As Integer, artCod As String, ByVal cant As Integer, act As String)
        Me._cia = cia
        Me._suc = suc
        Me._tipo = tipo
        Me._dcicodigo = dcicod
        Me._dcdCodigo = dcdCod
        Me._artCodigo = artCod
        Me._cantidad = cant
        Me._act = act
    End Sub

    Public Property CIA() As String
        Get
            Return _cia
        End Get
        Set(value As String)
            _cia = value
        End Set
    End Property

    Public Property SUC() As String
        Get
            Return _suc
        End Get
        Set(value As String)
            _suc = value
        End Set
    End Property

    Public Property TIPO() As String
        Get
            Return _tipo
        End Get
        Set(value As String)
            _tipo = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _dcicodigo
        End Get
        Set(ByVal value As String)
            _dcicodigo = value
        End Set
    End Property

    Public Property DCD_Codigo() As Integer
        Get
            Return _dcdCodigo
        End Get
        Set(value As Integer)
            _dcdCodigo = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _artCodigo
        End Get
        Set(value As String)
            _artCodigo = value
        End Set
    End Property

    Public Property DCD_Cantidad() As Integer
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property

    Public Property ACTIVO() As String
        Get
            Return _act
        End Get
        Set(value As String)
            _act = value
        End Set
    End Property

End Class
